
* APPENDIX K - NON-VOTERS ARE MORE LIKELY TO PICK "DON'T KNOW" OR THE MID-SCALE

* TABLE K.1: NON-VOTERS PICK "DON'T KNOW" MORE OFTEN

 cd "${data}"
 use "dataset.dta", clear 
 
drop if country_year_==.

gen dk_selfplacement = .
replace dk_selfplacement = 1 if selfplacement_dk==99
replace dk_selfplacement = 0 if selfplacement_dk>=0 & selfplacement_dk<=10

gen dk_regulation = .
replace dk_regulation = 1 if regulation_dk==99
replace dk_regulation = 0 if regulation_dk>=0 & regulation_dk<=10

gen dk_redistribution = .
replace dk_redistribution = 1 if redistribution_dk==99
replace dk_redistribution = 0 if redistribution_dk>=0 & redistribution_dk<=10

gen dk_samesexmarriage = .
replace dk_samesexmarriage = 1 if samesexmarriage_dk==99
replace dk_samesexmarriage = 0 if samesexmarriage_dk>=0 & samesexmarriage_dk<=10

gen dk_laworder = .
replace dk_laworder = 1 if laworder_dk==99
replace dk_laworder = 0 if laworder_dk>=0 & laworder_dk<=10

gen dk_immigration = .
replace dk_immigration = 1 if immigration_dk==99
replace dk_immigration = 0 if immigration_dk>=0 & immigration_dk<=10

gen dk_environment = .
replace dk_environment = 1 if environment_dk==99
replace dk_environment = 0 if environment_dk>=0 & environment_dk<=10

gen dk_euintegration = .
replace dk_euintegration = 1 if euintegration_dk==99
replace dk_euintegration = 0 if euintegration_dk>=0 & euintegration_dk<=10

gen dk_spending = .
replace dk_spending = 1 if spending_dk==99
replace dk_spending = 0 if spending_dk>=0 & spending_dk<=10


eststo M1: regress dk_selfplacement voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_selfplacement 

eststo M2: regress dk_redistribution voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_redistribution

eststo M3: regress dk_regulation voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_regulation

eststo M4: regress dk_spending voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_spending

eststo M5: regress dk_samesexmarriage voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_samesexmarriage

eststo M6: regress dk_immigration voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_immigration

eststo M7: regress dk_environment voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_environment

eststo M8: regress dk_laworder voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_laworder

eststo M9: regress dk_euintegration voted i.country_year_ if samplelimit==1
margins, dydx(voted) post
estimates store e_euintegration

 esttab M1 M2 M3 M4 M5 M6 M7 M8 M9 using ${tables}/dontknow.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "regulation" "spending" "same-sex marriage" "immigration" "environment" "civil liberties" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 
 
 
 
 * TABLE K.1: NON-VOTERS PICK "MID-SCALE" MORE OFTEN

 cd "${data}"
 use "dataset.dta", clear 
 

 drop if country_year_==.
 
 foreach var of varlist selfplacement regulation redistribution samesexmarriage laworder immigration environment euintegration  spending  {
	gen `var'_5 = .
	replace `var'_5 = 1 if `var'==5
	 replace `var'_5 = 0 if `var'==0 | `var'==1 | `var'==2 | `var'==3 | `var'==4 | `var'==6 | `var'==7 | `var'==8 | `var'==9 | `var'==10
}



 foreach var of varlist selfplacement_5 regulation_5 redistribution_5 samesexmarriage_5 laworder_5 immigration_5 environment_5 euintegration_5 spending_5  {
	regress `var' voted i.country_year_ if samplelimit==1
	estimates store e_`var' 
} 


 esttab e_selfplacement_5 e_redistribution_5 e_regulation_5 e_spending_5 e_samesexmarriage_5 e_immigration_5 e_environment_5 e_laworder_5 e_euintegration_5 using ${tables}/midscale.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "regulation" "spending" "same-sex marriage" "immigration" "environment" "civil liberties" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 

 
 * TABLE JK.3. ONLY AMONG PEOPLE NOT PICKING THE MID-SCALE 
 
 
 cd "${data}"
 use "dataset.dta", clear 
 

 drop if country_year_==.
 
recode selfplacement (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode regulation (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode redistribution (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode samesexmarriage (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode laworder (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode immigration (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode environment (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode euintegration (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
recode spending (5=.) (6=5) (7=6) (8=7) (9=8) (10=9)
 
 
foreach var of varlist selfplacement regulation redistribution samesexmarriage laworder immigration environment euintegration spending {
	regress `var' voted  i.country_year_ if year>2009 & samplelimit==1
	estimates store e_`var' 
} 



 esttab e_selfplacement e_redistribution e_regulation e_spending e_samesexmarriage e_immigration e_environment e_laworder e_euintegration using ${tables}/nomidscale.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "regulation" "spending" "same-sex marriage" "immigration" "environment" "civil liberties" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 


 
 

* APPENDIX K2 - NON-VOTERS ARE MORE LIKELY TO PICK "DON'T KNOW" OR THE MID-SCALE - BESIP

* TABLE K.4: NON-VOTERS PICK "DON'T KNOW" MORE OFTEN
	
cd "${data}"
use "besip.dta", clear 

   cd "${data}/votertype"
   
	
	foreach var of varlist leftRightW20 immigSelfW20 immigEconW20 immigCulturalW20 redistSelfW20 EUIntegrationSelfW20 enviroGrowthW20 taxSpendSelfW20 {
	gen DK_`var' = .
	replace DK_`var' = 1 if `var' == 9999
    replace DK_`var' = 0 if `var'>=0 & `var'<11
}

foreach var of varlist DK_leftRightW20 DK_immigSelfW20 DK_immigEconW20 DK_immigCulturalW20 DK_redistSelfW20 DK_EUIntegrationSelfW20 DK_enviroGrowthW20  DK_taxSpendSelfW20  {
	regress `var' i.votertype if samplelimit==1, robust 
	*margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}

   cd "${tables}"
   
 esttab est_DK_leftRightW20 est_DK_redistSelfW20 est_DK_taxSpendSelfW20 est_DK_immigSelfW20 est_DK_immigEconW20 est_DK_immigCulturalW20 est_DK_enviroGrowthW20 est_DK_EUIntegrationSelfW20 using dk_besip.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "spending" "immigration 1" "immigration 2" "immigration 3" "environment" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 

 
 * FIGURE K.1. PROBABILITY OF CHOOSING DON'T KNOW BY VOTER TYPE
 
 
 
cd "${data}/votertype"
 
foreach var of varlist DK_leftRightW20 DK_immigSelfW20 DK_immigEconW20 DK_immigCulturalW20 DK_redistSelfW20 DK_EUIntegrationSelfW20 DK_enviroGrowthW20  DK_taxSpendSelfW20  {
	regress `var' i.votertype if samplelimit==1, robust 
	margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}
 
 	coefplot (est_DK_leftRightW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("left-right") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "leftright_dk.gph", replace 
  
  
   	coefplot (est_DK_immigSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 1") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration1_dk.gph", replace 
  
  
     	coefplot (est_DK_immigEconW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 2") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration2_dk.gph", replace 
  
  
  
       	coefplot (est_DK_immigCulturalW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 3") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration3_dk.gph", replace 
  
  
     coefplot (est_DK_redistSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("redistribution") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "redistribution_dk.gph", replace 
  
       coefplot (est_DK_taxSpendSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("spending") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "spending_dk.gph", replace 
  

        coefplot (est_DK_EUIntegrationSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("EU Integration") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "EUIntegration_dk.gph", replace  
  
          coefplot (est_DK_enviroGrowthW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("environment") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "environment_dk.gph", replace   
  
  cd "${data}/votertype"
  
  graph combine leftright_dk.gph redistribution_dk.gph spending_dk.gph immigration1_dk.gph immigration2_dk.gph immigration3_dk.gph environment_dk.gph  EUIntegration_dk.gph, xcommon ycommon col(2) ysize(7) xsize(5)
graph save "${figures}/votertype_merged_dk.gph", replace   
graph export "${figures}/votertype_merged_dk.png", as(png) replace

 
 
 
 * TABLE K.5: NON-VOTERS PICK MID-SCALE MORE OFTEN 
 
 	
cd "${data}"
use "besip.dta", clear 

   cd "${data}/votertype"
	
 	foreach var of varlist leftRightW20 immigSelfW20 redistSelfW20 taxSpendSelfW20 EUIntegrationSelfW20 enviroGrowthW20 {
	gen m_`var' = .
	replace m_`var' = 1 if `var' == 5
    replace m_`var' = 0 if `var'==0 | `var'==1 | `var'==2 | `var'==3 | `var'==4 | `var'==6 | `var'==7 | `var'==8 | `var'==9 | `var'==10
}

	foreach var of varlist immigEconW20 immigCulturalW20  {
	gen m_`var' = .
	replace m_`var' = 1 if `var' == 4
    replace m_`var' = 0 if `var'==1 | `var'==2 | `var'==3 | `var'==5 | `var'==6 | `var'==7 
}


foreach var of varlist m_leftRightW20 m_immigSelfW20 m_taxSpendSelfW20 m_immigEconW20 m_immigCulturalW20 m_redistSelfW20 m_EUIntegrationSelfW20 m_enviroGrowthW20    {
	regress `var' i.votertype if samplelimit==1, robust 
	*margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}


  cd "${tables}"
 esttab est_m_leftRightW20 est_m_redistSelfW20 est_m_taxSpendSelfW20 est_m_immigSelfW20 est_m_immigEconW20 est_m_immigCulturalW20 est_m_enviroGrowthW20 est_m_EUIntegrationSelfW20 using midscale_besip.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "spending" "immigration 1" "immigration 2" "immigration 3" "environment" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 
 
 
 * FIGURE K.2: PROBABILITY OF CHOOSING MID-SCALE BY VOTER TYPE 
 
 foreach var of varlist m_leftRightW20 m_immigSelfW20 m_taxSpendSelfW20 m_immigEconW20 m_immigCulturalW20 m_redistSelfW20 m_EUIntegrationSelfW20 m_enviroGrowthW20    {
	regress `var' i.votertype if samplelimit==1, robust 
	margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}

   cd "${data}/votertype"
   
     coefplot (est_m_leftRightW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("left-right") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "leftright_m.gph", replace 
  
  
       coefplot (est_m_immigSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 1") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration1_m.gph", replace 
  
         coefplot (est_m_immigEconW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 2") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration2_m.gph", replace 
  
  
           coefplot (est_m_immigCulturalW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("immigration 3") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "immigration3_m.gph", replace 
  
            coefplot (est_m_redistSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("redistribution") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "redistribution_m.gph", replace 

	coefplot (est_m_taxSpendSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("spending") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "spending_m.gph", replace 
  
  	coefplot (est_m_EUIntegrationSelfW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("EU Integration") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "EUIntegration_m.gph", replace  
  
    coefplot (est_m_enviroGrowthW20, label() msymbol(circle_hollow) mcolor(gs2%70) ///
    ciopts(color(gs2%70))), horizontal byopts(legend(off)) ///
    xline(5, lcolor(gs5) lpattern(dash)) bylabel(with controls) ///
    title("environment") ///
    ylabel(1 "PNV" 2 "PV" 3 "RV", labsize(small) ///
        grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    xlabel(, grid glcolor(gs12%30) glpattern(solid) glwidth(vthin)) ///
    graphregion(color(white) lcolor(none)) ///
    plotregion(lcolor(none))
  graph save "environment_m.gph", replace   
  
  
    cd "${data}/votertype"
	graph combine leftright_m.gph redistribution_m.gph spending_m.gph immigration1_m.gph immigration2_m.gph immigration3_m.gph environment_m.gph  EUIntegration_m.gph, xcommon ycommon col(2) ysize(7) xsize(5)
graph save "${figures}/votertype_merged_m.gph", replace   
graph export "${figures}/votertype_merged_m.png", as(png) replace



* TABLE K.6: REPLICATING MAIN RESULTS EXCLUDING THOSE WHO PICK MID-SCALE


	cd "${data}"
	use "besip.dta", clear 
    cd "${data}/votertype"
	

	recode leftRightW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)
	recode immigSelfW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)
	recode redistSelfW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)
	recode EUIntegrationSelfW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)
	recode enviroGrowthW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)
	recode immigEconW20 (4=.) (5=4) (6=5) (7=6) (9999=.)
	recode immigCulturalW20 (4=.) (5=4) (6=5) (7=6) (9999=.)
	recode taxSpendSelfW20 (5=.) (6=5) (7=6) (8=7) (9=8) (10=9) (9999=.)

	
foreach var of varlist leftRightW20 redistSelfW20 taxSpendSelfW20 immigSelfW20 immigEconW20 immigCulturalW20 enviroGrowthW20 EUIntegrationSelfW20    {
	regress `var' i.votertype if samplelimit==1, robust 
	*margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}
	

 esttab est_leftRightW20 est_redistSelfW20 est_taxSpendSelfW20 est_immigSelfW20 est_immigEconW20 est_immigCulturalW20 est_enviroGrowthW20 est_EUIntegrationSelfW20 using ${tables}/nomidscale_besip.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "spending" "immigration 1" "immigration 2" "immigration 3" "environment" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 	
	

	
	